(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     38204,       1061]
NotebookOptionsPosition[     34575,        990]
NotebookOutlinePosition[     34955,       1007]
CellTagsIndexPosition[     34912,       1004]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:7b2c3\:8bd5\:9a8c\:573a", "Title",
 CellChangeTimes->{{3.7850096712027893`*^9, 
  3.7850096742750826`*^9}},ExpressionUUID->"72058875-6e83-4dad-9291-\
cdb37a3b2412"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GuassSeidle", "[", 
   RowBox[{"A_", ",", "b_", ",", "rand_", ",", "ops_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"c", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Dimensions", "[", "A", "]"}], "]"}]}], ",", "x2", ",", "x1", 
      ",", "n"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"x1", "=", "rand"}], ";", "\[IndentingNewLine]", 
     RowBox[{"n", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"x2", "=", "rand"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"Norm", "[", "x1", "]"}], "-", 
          RowBox[{"Norm", "[", "x2", "]"}]}], "]"}], "<", "ops"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x2", "=", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"b", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "-", 
                RowBox[{"Sum", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", 
                   RowBox[{"x2", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], ",", 
                  RowBox[{"{", 
                   RowBox[{"j", ",", "1", ",", 
                    RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}], "-", 
                RowBox[{"Sum", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", 
                   RowBox[{"x1", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], ",", 
                  RowBox[{"{", 
                   RowBox[{"j", ",", 
                    RowBox[{"i", "+", "1"}], ",", "c"}], "}"}]}], "]"}]}], 
               ")"}], "/", 
              RowBox[{"A", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "i"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x1", ",", "x2"}], "}"}], "=", 
           RowBox[{"{", 
            RowBox[{"x2", ",", "x1"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
         "}"}], ";", "\[IndentingNewLine]", 
        RowBox[{"n", "++"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "x1", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.785009692406165*^9, 3.785009701093527*^9}, {
  3.7850098610660295`*^9, 3.785009881845583*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"5ce8bb69-eba8-4f20-a589-f8c498fbf5bc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"i", "+", "j"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.785009708081846*^9, 3.7850097222569885`*^9}, {
  3.7850098024865065`*^9, 3.785009805569268*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"376019b4-6464-4e2f-93ac-7b943a20b976"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6", ",", "7", ",", "8"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7850097230757647`*^9, 3.7850098064409013`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"a1bcfac6-d182-4767-992e-e0b8c420b59b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GuassSeidle", "[", 
  RowBox[{"B", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "63", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "0.01"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7850097289086146`*^9, 3.785009765321703*^9}, 
   3.7850099042301073`*^9},
 CellLabel->"In[9]:=",ExpressionUUID->"07ffebec-23ff-4756-8aca-df6717b30536"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["11", "2"]}], ",", 
   RowBox[{"-", 
    FractionBox["5", "2"]}], ",", 
   FractionBox["47", "6"], ",", 
   RowBox[{"-", 
    FractionBox["15", "8"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.785009733331789*^9, 3.785009766351949*^9, 3.7850098088442397`*^9, {
   3.785009898343443*^9, 3.785009905013979*^9}},
 CellLabel->"Out[9]=",ExpressionUUID->"34df9a9a-a118-4e97-90bc-a656a5abc821"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 4},ExpressionUUID->"67787132-4932-410e-931d-f6f7b1b4c384"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LUOperator", "[", "A_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "c", ",", "r", ",", "U", ",", "L", ",", "k", ",", "i", ",", "i1", ",", 
      "i2"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{"First", "[", 
       RowBox[{"Dimensions", "[", "A", "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"U", "=", 
      RowBox[{"UpperTriangularize", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"i", "+", "j"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "c"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "c"}], "}"}]}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"L", "=", 
      RowBox[{"IdentityMatrix", "[", "c", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"U", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "All"}], "]"}], "]"}], "=", 
      RowBox[{"A", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "All"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"L", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
       RowBox[{"U", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"L", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "1"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"r", "=", "2"}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"r", "<", 
        RowBox[{"c", "+", "1"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i1", "=", "r"}], ";", 
          RowBox[{"While", "[", 
           RowBox[{
            RowBox[{"i1", "<", 
             RowBox[{"c", "+", "1"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"U", "[", 
               RowBox[{"[", 
                RowBox[{"r", ",", "i1"}], "]"}], "]"}], "=", 
              RowBox[{
               RowBox[{"A", "[", 
                RowBox[{"[", 
                 RowBox[{"r", ",", "i1"}], "]"}], "]"}], "-", 
               RowBox[{"Sum", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"L", "[", 
                   RowBox[{"[", 
                    RowBox[{"r", ",", "k"}], "]"}], "]"}], "*", 
                  RowBox[{"U", "[", 
                   RowBox[{"[", 
                    RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ",", 
                 RowBox[{"{", 
                  RowBox[{"k", ",", "1", ",", 
                   RowBox[{"r", "-", "1"}]}], "}"}]}], "]"}]}]}], ";", 
             RowBox[{"i1", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"i2", "=", 
           RowBox[{"r", "+", "1"}]}], ";", 
          RowBox[{"While", "[", 
           RowBox[{
            RowBox[{"i2", "<", 
             RowBox[{"c", "+", "1"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"L", "[", 
               RowBox[{"[", 
                RowBox[{"i2", ",", "r"}], "]"}], "]"}], "=", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"A", "[", 
                  RowBox[{"[", 
                   RowBox[{"i2", ",", "r"}], "]"}], "]"}], "-", 
                 RowBox[{"Sum", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"L", "[", 
                    RowBox[{"[", 
                    RowBox[{"i2", ",", "k"}], "]"}], "]"}], "*", 
                    RowBox[{"U", "[", 
                    RowBox[{"[", 
                    RowBox[{"k", ",", "r"}], "]"}], "]"}]}], ",", 
                   RowBox[{"{", 
                    RowBox[{"k", ",", "1", ",", 
                    RowBox[{"r", "-", "1"}]}], "}"}]}], "]"}]}], ")"}], "/", 
               RowBox[{"U", "[", 
                RowBox[{"[", 
                 RowBox[{"r", ",", "r"}], "]"}], "]"}]}]}], ";", 
             RowBox[{"i2", "++"}]}]}], "]"}]}], "}"}], ";", 
        RowBox[{"r", "++"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]",
       "]"}], ";", 
     RowBox[{"Return", "[", "L", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7850127048246193`*^9, 3.785012711675113*^9}, 
   3.7850127742150965`*^9, {3.785012845722991*^9, 3.7850128799306183`*^9}, {
   3.785012916779148*^9, 3.7850131813882065`*^9}, {3.7850132344289713`*^9, 
   3.785013250009389*^9}, {3.7850132912749405`*^9, 3.785013296716074*^9}, {
   3.7850133727448597`*^9, 3.7850134059821014`*^9}, {3.785013471233872*^9, 
   3.785013502928029*^9}, {3.7850136079930964`*^9, 3.785013626213936*^9}, {
   3.785013731583436*^9, 3.785013731878604*^9}, {3.7850139625476236`*^9, 
   3.7850139922608476`*^9}, {3.7850140917541375`*^9, 3.78501410931365*^9}, {
   3.7850141697503834`*^9, 3.785014214925743*^9}, {3.7850142690457416`*^9, 
   3.785014269479397*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"109ea1f7-f069-406e-8ad6-3a60c545e880"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LUOperator", "[", "B", "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7850133038390226`*^9, 3.7850133164646945`*^9}, {
  3.785013451598922*^9, 3.78501345357221*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"abc3e2e7-b067-4d62-a372-1c95ea088963"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {
      FractionBox["3", "2"], "1", "0", "0"},
     {
      FractionBox["1", "2"], 
      FractionBox["7", "1791"], "1", "0"},
     {
      FractionBox["5", "2"], 
      RowBox[{"-", 
       FractionBox["1", "597"]}], 
      RowBox[{"-", 
       FractionBox["1581", "1898"]}], "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.785014248615155*^9, 3.7850142753840227`*^9}},
 CellLabel->
  "Out[45]//MatrixForm=",ExpressionUUID->"3d9698a2-1dd8-43e4-b214-\
f866797bb6b4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7850142380049715`*^9, 3.7850142429645433`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"ea7bb982-5a81-4fe4-8d20-bc96bbc447f7"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", "3", "3", "5"},
     {"3", "900", "56", "6"},
     {"1", "5", "7", "7"},
     {"5", "6", "3", "8"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.785013950131797*^9, 3.78501399655786*^9}, {
  3.7850142232686744`*^9, 3.785014243373968*^9}},
 CellLabel->
  "Out[42]//MatrixForm=",ExpressionUUID->"5a497ef8-18a3-4af7-8ded-\
c1f23f723823"]
}, Open  ]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "1", "1", "1"},
     {
      FractionBox["3", "2"], "2", "1", "1"},
     {
      FractionBox["1", "2"], 
      FractionBox["7", "1791"], "2", "1"},
     {
      FractionBox["5", "2"], 
      RowBox[{"-", 
       FractionBox["1", "597"]}], 
      RowBox[{"-", 
       FractionBox["1581", "1898"]}], "2"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Input",ExpressionUUID->"5902103e-ef12-489b-\
9a1c-0f07ab400cd6"],

Cell[CellGroupData[{

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.78501394671736*^9},ExpressionUUID->"09c91b99-d343-4458-adab-32ba17f69af2"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "1", "1", "1"},
     {
      FractionBox["3", "2"], "2", "1", "1"},
     {
      FractionBox["1", "2"], 
      FractionBox["7", "1791"], "2", "1"},
     {
      FractionBox["5", "2"], 
      RowBox[{"-", 
       FractionBox["1", "597"]}], 
      RowBox[{"-", 
       FractionBox["1581", "1898"]}], "2"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7850137387099714`*^9},
 CellLabel->
  "Out[33]//MatrixForm=",ExpressionUUID->"52f99628-42db-4e0b-b272-\
219d276205be"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"2", "3", "3", "5"},
      {"3", 
       FractionBox["1791", "2"], 
       FractionBox["103", "2"], 
       RowBox[{"-", 
        FractionBox["3", "2"]}]},
      {"4", "5", 
       FractionBox["9490", "1791"], 
       FractionBox["2690", "597"]},
      {"5", "6", "7", 
       RowBox[{"-", 
        FractionBox["711", "949"]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], "+", "1"}]], "Input",
 CellChangeTimes->{{3.7850137228590536`*^9, 3.7850137232161813`*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"9a8a554a-b573-43cc-81d8-e08e21eb21a1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "4", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     FractionBox["1793", "2"], ",", 
     FractionBox["105", "2"], ",", 
     RowBox[{"-", 
      FractionBox["1", "2"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6", ",", 
     FractionBox["11281", "1791"], ",", 
     FractionBox["3287", "597"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "7", ",", "8", ",", 
     FractionBox["238", "949"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.785013724714737*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"a2aa5a2e-3007-44cf-8f18-1defcd447580"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["B"], "Input",
 CellChangeTimes->{3.785013318437022*^9},
 CellLabel->"In[12]:=",ExpressionUUID->"254b73f7-582f-4720-9d33-15e493c01c49"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6", ",", "7", ",", "8"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7850133191226664`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"32a0aeba-478a-45ef-9d17-32a6cba89046"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"2", ",", "3", ",", "3", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "900", ",", "56", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "5", ",", "7", ",", "7"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"5", ",", "6", ",", "3", ",", "8"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7850134297191324`*^9, 3.785013441983225*^9}, {
  3.785013527555279*^9, 3.7850135400616846`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"c6adbe78-f12a-48b1-8642-1a5e7c09fa6b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "900", ",", "56", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "7", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "6", ",", "3", ",", "8"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.785013442983907*^9, {3.7850135292170143`*^9, 3.78501354120271*^9}},
 CellLabel->"Out[26]=",ExpressionUUID->"bc7ef891-7fcb-4d92-a765-0f5359dfa080"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 4},ExpressionUUID->"39e6c4e4-0ab4-4f67-9884-2bb310f92488"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GuassJordon", "[", "B_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "A", ",", "AA", ",", "K", ",", "F", ",", "a", ",", "S", ",", "b", ",", 
      "c", ",", "x", ",", "y", ",", "k", ",", "i", ",", "j", ",", "m", ",", 
      "n", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"A", "=", "B"}], ";", "\[IndentingNewLine]", 
     RowBox[{"c", "=", 
      RowBox[{"First", "[", 
       RowBox[{"Dimensions", "[", "A", "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"F", "=", 
      RowBox[{"IdentityMatrix", "[", "c", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"i", "<", 
        RowBox[{"c", "+", "1"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"a", "=", 
           RowBox[{"Max", "[", 
            RowBox[{"Abs", "[", 
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{"j", ",", 
                  RowBox[{"{", 
                   RowBox[{"j", ",", "i", ",", "c"}], "}"}]}], "]"}], ",", 
                "i"}], "]"}], "]"}], "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"b", "=", 
           RowBox[{
            RowBox[{"First", "[", 
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{"A", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{"j", ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "i", ",", "c"}], "}"}]}], "]"}], ",", 
                    "i"}], "]"}], "]"}], "]"}], ",", "a"}], "]"}], "//", 
              "Flatten"}], "]"}], "+", 
            RowBox[{"(", 
             RowBox[{"i", "-", "1"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "All"}], "]"}], "]"}], ",", 
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{"b", ",", "All"}], "]"}], "]"}]}], "}"}], "=", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{"b", ",", "All"}], "]"}], "]"}], ",", 
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "All"}], "]"}], "]"}]}], "}"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"F", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "All"}], "]"}], "]"}], ",", 
             RowBox[{"F", "[", 
              RowBox[{"[", 
               RowBox[{"b", ",", "All"}], "]"}], "]"}]}], "}"}], "=", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"F", "[", 
              RowBox[{"[", 
               RowBox[{"b", ",", "All"}], "]"}], "]"}], ",", 
             RowBox[{"F", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "All"}], "]"}], "]"}]}], "}"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"n", "=", 
           RowBox[{"i", "+", "1"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"A", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "All"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "All"}], "]"}], "]"}], "/", 
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "i"}], "]"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"F", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "All"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"F", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "All"}], "]"}], "]"}], "/", 
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "i"}], "]"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"S", "=", "F"}], ";", "\[IndentingNewLine]", 
          RowBox[{"While", "[", 
           RowBox[{
            RowBox[{"n", "<", 
             RowBox[{"c", "+", "1"}]}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"k", "=", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"A", "[", 
                   RowBox[{"[", 
                    RowBox[{"n", ",", "i"}], "]"}], "]"}], "/", 
                  RowBox[{"A", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "i"}], "]"}], "]"}]}], ")"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"A", "[", 
                 RowBox[{"[", 
                  RowBox[{"n", ",", "All"}], "]"}], "]"}], "=", 
                RowBox[{
                 RowBox[{"A", "[", 
                  RowBox[{"[", 
                   RowBox[{"n", ",", "All"}], "]"}], "]"}], "-", 
                 RowBox[{"k", "*", 
                  RowBox[{"A", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "All"}], "]"}], "]"}]}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"F", "[", 
                 RowBox[{"[", 
                  RowBox[{"n", ",", "All"}], "]"}], "]"}], "=", 
                RowBox[{
                 RowBox[{"F", "[", 
                  RowBox[{"[", 
                   RowBox[{"n", ",", "All"}], "]"}], "]"}], "-", 
                 RowBox[{"k", "*", 
                  RowBox[{"F", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "All"}], "]"}], "]"}]}]}]}]}], "}"}], 
             ";", 
             RowBox[{"n", "++"}]}]}], "]"}]}], "}"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"i", "++"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"K", "=", "A"}], ";", "\[IndentingNewLine]", 
     RowBox[{"p", "=", 
      RowBox[{"c", "-", "1"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"AA", "=", "A"}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"p", ">", "0"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"A", "[", 
            RowBox[{"[", "p", "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"A", "[", 
             RowBox[{"[", "p", "]"}], "]"}], "-", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"A", "[", 
                RowBox[{"[", "q", "]"}], "]"}], "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"AA", "[", 
                  RowBox[{"[", 
                   RowBox[{"p", ",", "q"}], "]"}], "]"}], "/", 
                 RowBox[{"AA", "[", 
                  RowBox[{"[", 
                   RowBox[{"q", ",", "q"}], "]"}], "]"}]}], ")"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"q", ",", 
                RowBox[{"p", "+", "1"}], ",", "c"}], "}"}]}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"F", "[", 
            RowBox[{"[", "p", "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"F", "[", 
             RowBox[{"[", "p", "]"}], "]"}], "-", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"F", "[", 
                RowBox[{"[", "q", "]"}], "]"}], "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"AA", "[", 
                  RowBox[{"[", 
                   RowBox[{"p", ",", "q"}], "]"}], "]"}], "/", 
                 RowBox[{"AA", "[", 
                  RowBox[{"[", 
                   RowBox[{"q", ",", "q"}], "]"}], "]"}]}], ")"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"q", ",", 
                RowBox[{"p", "+", "1"}], ",", "c"}], "}"}]}], "]"}]}]}]}], 
         "}"}], ";", "\[IndentingNewLine]", 
        RowBox[{"p", "--"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "F", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7850264491746387`*^9, 3.7850264496513653`*^9}, {
   3.785026588362277*^9, 3.7850266214555635`*^9}, {3.785026770388386*^9, 
   3.785026790892535*^9}, {3.7850268692207937`*^9, 3.7850268982393265`*^9}, {
   3.785027030703041*^9, 3.785027031219699*^9}, 3.78502711058197*^9, {
   3.7850272168463163`*^9, 3.785027218072996*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"0a4cfb38-f1be-46e1-be6c-27652eb27473"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GuassJordon", "[", "B", "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.785026374028411*^9, 3.785026381081558*^9}, {
  3.7850264687213917`*^9, 3.785026469296813*^9}, {3.7850266080115013`*^9, 
  3.785026608129133*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"8e8a7a18-fa9b-421f-a835-028e700ab61a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox["6290", "5531"]}], 
      RowBox[{"-", 
       FractionBox["126743411", "20658285"]}], 
      FractionBox["6107861", "4131657"], 
      FractionBox["417335513", "20658285"]},
     {
      FractionBox["285", "5531"], 
      FractionBox["95701147", "61974855"], 
      RowBox[{"-", 
       FractionBox["1875913", "12394971"]}], 
      RowBox[{"-", 
       FractionBox["284110726", "61974855"]}]},
     {
      RowBox[{"-", 
       FractionBox["4836", "5531"]}], 
      RowBox[{"-", 
       FractionBox["62907059", "6886095"]}], 
      FractionBox["3501029", "1377219"], 
      FractionBox["183257672", "6886095"]},
     {"1", 
      FractionBox["45583", "7470"], 
      RowBox[{"-", 
       FractionBox["2635", "1494"]}], 
      RowBox[{"-", 
       FractionBox["69257", "3735"]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.785026381693918*^9, {3.7850264583820443`*^9, 3.7850264708656473`*^9}, {
   3.7850266091384673`*^9, 3.7850266324312696`*^9}, 3.7850269307154903`*^9, 
   3.7850270357635145`*^9, 3.7850271167085876`*^9, 3.7850272232741284`*^9},
 CellLabel->
  "Out[69]//MatrixForm=",ExpressionUUID->"6dad9957-0ba6-405c-b296-\
b0ca69de304f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Inverse", "[", "B", "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7850264114015074`*^9, 3.785026420668293*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"f9d4aafd-881c-44b6-add2-0dc1b78301f5"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox["3145", "711"]}], 
      RowBox[{"-", 
       FractionBox["4", "1185"]}], 
      FractionBox["1397", "1185"], 
      FractionBox["1234", "711"]},
     {
      FractionBox["95", "474"], 
      FractionBox["1", "790"], 
      RowBox[{"-", 
       FractionBox["53", "790"]}], 
      RowBox[{"-", 
       FractionBox["16", "237"]}]},
     {
      RowBox[{"-", 
       FractionBox["806", "237"]}], 
      RowBox[{"-", 
       FractionBox["1", "395"]}], 
      FractionBox["448", "395"], 
      FractionBox["269", "237"]},
     {
      FractionBox["5531", "1422"], 
      FractionBox["1", "474"], 
      RowBox[{"-", 
       FractionBox["527", "474"]}], 
      RowBox[{"-", 
       FractionBox["949", "711"]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.785026416115905*^9, 3.785026421253765*^9}, 
   3.785026938996436*^9},
 CellLabel->
  "Out[63]//MatrixForm=",ExpressionUUID->"4de334bc-13de-4c1b-80a4-\
ff77540d9bad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", ".", 
  RowBox[{"Inverse", "[", "B", "]"}]}]], "Input",
 CellChangeTimes->{{3.785026424493069*^9, 3.7850264369542694`*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"eedfe5f8-2e23-4f55-8b4e-b600a85baa22"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.785026431782097*^9, 3.7850264377910323`*^9}},
 CellLabel->"Out[53]=",ExpressionUUID->"27a540de-563a-4df6-a4f3-12cf1af4a964"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.785026356668242*^9, 3.7850263640840435`*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"3580a85e-447d-4326-a14a-1ded57313832"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", "3", "3", "5"},
     {"3", "900", "56", "6"},
     {"1", "5", "7", "7"},
     {"5", "6", "3", "8"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.785026357605736*^9, 3.785026364543764*^9}},
 CellLabel->
  "Out[48]//MatrixForm=",ExpressionUUID->"e459caba-3c04-4f48-aeb6-\
5e19a17d6c91"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1280, 637},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
CellContext->Notebook,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 172, 3, 96, "Title",ExpressionUUID->"72058875-6e83-4dad-9291-cdb37a3b2412"],
Cell[755, 27, 3006, 76, 290, "Input",ExpressionUUID->"5ce8bb69-eba8-4f20-a589-f8c498fbf5bc"],
Cell[CellGroupData[{
Cell[3786, 107, 459, 11, 45, "Input",ExpressionUUID->"376019b4-6464-4e2f-93ac-7b943a20b976"],
Cell[4248, 120, 515, 12, 32, "Output",ExpressionUUID->"a1bcfac6-d182-4767-992e-e0b8c420b59b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4800, 137, 426, 10, 28, "Input",ExpressionUUID->"07ffebec-23ff-4756-8aca-df6717b30536"],
Cell[5229, 149, 463, 13, 55, "Output",ExpressionUUID->"34df9a9a-a118-4e97-90bc-a656a5abc821"]
}, Open  ]],
Cell[5707, 165, 329, 10, 8, "Text",ExpressionUUID->"67787132-4932-410e-931d-f6f7b1b4c384"],
Cell[6039, 177, 5227, 131, 454, "Input",ExpressionUUID->"109ea1f7-f069-406e-8ad6-3a60c545e880"],
Cell[CellGroupData[{
Cell[11291, 312, 293, 5, 45, "Input",ExpressionUUID->"abc3e2e7-b067-4d62-a372-1c95ea088963"],
Cell[11587, 319, 1030, 31, 132, "Output",ExpressionUUID->"3d9698a2-1dd8-43e4-b214-f866797bb6b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12654, 355, 208, 3, 45, "Input",ExpressionUUID->"ea7bb982-5a81-4fe4-8d20-bc96bbc447f7"],
Cell[12865, 360, 874, 24, 96, "Output",ExpressionUUID->"5a497ef8-18a3-4af7-8ded-c1f23f723823"]
}, Open  ]],
Cell[13754, 387, 922, 28, 114, "Input",ExpressionUUID->"5902103e-ef12-489b-9a1c-0f07ab400cd6"],
Cell[CellGroupData[{
Cell[14701, 419, 126, 2, 28, "Input",ExpressionUUID->"09c91b99-d343-4458-adab-32ba17f69af2"],
Cell[14830, 423, 1006, 31, 132, "Output",ExpressionUUID->"52f99628-42db-4e0b-b272-219d276205be"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15873, 459, 1072, 30, 114, InheritFromParent,ExpressionUUID->"9a8a554a-b573-43cc-81d8-e08e21eb21a1"],
Cell[16948, 491, 677, 19, 55, "Output",ExpressionUUID->"a2aa5a2e-3007-44cf-8f18-1defcd447580"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17662, 515, 148, 2, 28, "Input",ExpressionUUID->"254b73f7-582f-4720-9d33-15e493c01c49"],
Cell[17813, 519, 492, 12, 32, "Output",ExpressionUUID->"32a0aeba-478a-45ef-9d17-32a6cba89046"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18342, 536, 601, 14, 28, "Input",ExpressionUUID->"c6adbe78-f12a-48b1-8642-1a5e7c09fa6b"],
Cell[18946, 552, 543, 13, 32, "Output",ExpressionUUID->"bc7ef891-7fcb-4d92-a765-0f5359dfa080"]
}, Open  ]],
Cell[19504, 568, 329, 10, 8, "Text",ExpressionUUID->"39e6c4e4-0ab4-4f67-9884-2bb310f92488"],
Cell[19836, 580, 8989, 230, 867, "Input",ExpressionUUID->"0a4cfb38-f1be-46e1-be6c-27652eb27473"],
Cell[CellGroupData[{
Cell[28850, 814, 344, 6, 45, "Input",ExpressionUUID->"8e8a7a18-fa9b-421f-a835-028e700ab61a"],
Cell[29197, 822, 1723, 49, 144, "Output",ExpressionUUID->"6dad9957-0ba6-405c-b296-b0ca69de304f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30957, 876, 240, 4, 45, "Input",ExpressionUUID->"f9d4aafd-881c-44b6-add2-0dc1b78301f5"],
Cell[31200, 882, 1491, 48, 144, "Output",ExpressionUUID->"4de334bc-13de-4c1b-80a4-ff77540d9bad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32728, 935, 230, 4, 45, "Input",ExpressionUUID->"eedfe5f8-2e23-4f55-8b4e-b600a85baa22"],
Cell[32961, 941, 516, 12, 32, "Output",ExpressionUUID->"27a540de-563a-4df6-a4f3-12cf1af4a964"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33514, 958, 206, 3, 45, "Input",ExpressionUUID->"3580a85e-447d-4326-a14a-1ded57313832"],
Cell[33723, 963, 824, 23, 96, "Output",ExpressionUUID->"e459caba-3c04-4f48-aeb6-5e19a17d6c91"]
}, Open  ]]
}, Open  ]]
}
]
*)

